home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1992 April
/
64er_Magazin_92-04_1992_Markt__Technik_de_Side_A.d64
/
f-c (flop).seq
< prev
next >
Wrap
Text File
|
2022-10-26
|
777b
|
31 lines
;speeder floppy->computer (floppy route)
ldx #$10 ;
l1 lda $1800 ;auf atn
bpl l1 ;warten
stx $1800 ;data setzen
l2 lda puffer,y ;datenbyyte holen
sta $c1 ;und sichern
lsr a ;highnibble
lsr a ;isolieren
lsr a ;
lsr a ;
l3 ldx $1800 ;wieder auf atn warten
bpl l3 ;
sta $1800 ;bits 5 und 7
asl a ;uebertragen
and #$0f ;bits 4 und 6
sta $1800 ;uebertragen
lda $c1 ;datenbyte holen
and #$0f ;und bits 1 und 3
sta $1800 ;uebertragen
asl a ;
and #$0f ;bits 0 und 2
sta $1800 ;uebertragen
iny ;und
bne l2 ;naechstes byte
ldx #$0f ;atn
stx $1800 ;zuruecksetzen
rts ;und rueckkehr